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ALTOIICODE3.MU 
; Copyright Xerox Corporation 1979 

;***Derived from ALT0IIC0DE2.MU, as last modified by 
; ***Tobo1, August 5, 1976 12:13 PM -- fix DI062 bug 
;***modified by Ingalls, September 6, 1977 
; BitBLT fixed (LREG bug) and extended for new memory 
;***modified by Boggs and Taft September 15, 1977 10:10 PM 

; Modified MRT to refresh 16K chips and added XMSTA and XMLDA. 
; Fixed two bugs in DEXCH and a bug in the interval timer. 

; Moved symbol and constant definitions into A1toConsts23.mu. 

; MRT split and moved into two 'get' files. 

;***modified by Boggs and Taft November 21, 1977 5:10 PM 

; Fixed a bug in the Ethernet input main loop. 

;***modified by Boggs November 28, 1977 3:53 PM 

; Mess with the information returned by VERS 


SOU^ce COD6 5 
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;Get the symbol and constant definitions 
#A1 toConsts23.miL;.... 

[T 311 

;LABEL PREDEFINfFSONS 

IS ! H u 

;The res<e%, locatrroris of '4-ne tasks-r 

(£» Gi\ (?) cjo) v\\ 

!17,20,MOVEM,,.,KSEC,.,EREST,MRT,DWT,CURT,DHT,DVT,PART,KWDX,; 

0 *j| ~l % P> E.C. O ^ 

•.Locations which may need to be accessible from the Ram, or Ram 
: locations which are accessed from the Rom (TRAP1): 

.!37,20, START , RAMRET , RAMCYCX..TRAP1; 


.5 et) 


■h:. f. ■/ 


;Macro-op dispatch table: 

! 37,20,DOINS,DOIND,EMCYCLE,NOPAR,JSRII,U5,U6,U7..RAMTRAP,TRAP; 
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;Parameter!ess macro-op sub-table: 

!37,40,DIR,EIR,BRI,RCLK,SIO,BLT,BLKS,SIT.JMPR,RDRM,WTRM,DIRS,VERS,DREAD.DWRITE.DEXCH,MUL,DIV,DI0G1,DIOG 
**2,BITBLT, XMLDA, XMSTA.; 


;Cycle dispatch table: 

!37,20,L0,L1,L2,L3,L4,L6,L6,L7,L8,R7,R6,R5,R4,R3X,R2X,R1X; 


;some global R-Registers 
$NWW $R4; 

$R37 $R37; 

SMTEMP $R25; 


State of interrupt system 

Used by MRT, interval timer and EIA 

Public temporary R-Register 

WfiX (./IT” j 'iP:3y 5 5.0 ^ c-7~'o A 5 
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;The Display Controller • 

; its R-Registers: 

$CBA $R22; 

$AECL $ R 2 3; 

$SLC $R24; 

$HTAB $R26; 

$YP0S $R27; 

$DWA $R30; 

$CURX $R20; 

SCURDATA $R21; 

; its task specific functions: 

SEVENFIELD SL024010,000000,000000; F2 = 10 DHT DVT 

SSETMODE SL024011,000000,000000; F2 = 11 DHT 

$DDR $L026010,000000,124100; F2 = 10 DWT 

!1,2,DVT1,DVT11; 

!1,2,M0REB,NOMORE; 

!1,2,NORMX,HALFX; 

!1,2,N0DD,NEVEN; 

!1,2,DHT0,DHT1; 

!1,2, NORMODE,HALFMODE; 

! 1,2,DWTZ,DWTY; 

!1,2,DOTAB,NOTAB; 

!1,2,XNOMORE.DOMORE; 

;Display Vertical Task 

DVT: MAR<- L*- DASTART+1; 

CBA<- L, L*- 0; 

CURDATA*- L; 

SLC<- L; 

T<- MD; 

L*- NWW OR T; 

MAR*- CURLOC; 

NWW*- L, T<- 0-1; 

L<- MD XOR T; 

T*- MD, EVENFIELD; 

CURX*- L, : DVT 1; 

DVT 1: L*- BIAS-T-1, TASK, :DVT2; BIAS THE Y COORDINATE 

DVT 11: L<- BIAS-T, TASK; 

DVT2: YPOS*- L, :DVT; 


CAUSE A VERTICAL FIELD INTERRUPT 

SET UP THE CURSOR 

HARDWARE EXPECTS X COMPLEMENTED 
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;Display Horizontal Task. 

;11 cycles if no block change, 17 if new control block. 

DHT: MAR*- CBA-1; 

L*- SLC -1, BUS=0; 

SLC*- L, :DHT0; 

DHTO: T<- 37400; MORE TO DO IN THIS BLOCK 

SINK*- MD; 

L*- T*- MD AND T, SETMODE; 

HTAB*- L LCY 8, : NORMODE; 

NORMODE:L<- T*- 377 . T; 

AECL*- L, : REST; 

HALFMODE: L*- T«- 377 . T; 

AECL*- L, : REST, T<- 0; 

REST: L<- DWA + T.TASK; INCREMENT DWA BY 0 OR NWRDS 

NONX: DWA*- L, : DHT; 

DHT1: L*- T<- MD+1, BUS=0; 

CBA<- L, MAR*- T, :MOREB; 

NOMORE: BLOCK, :DNX; 

MOREB: T«- 37400; 

L*- T<- MD AND T, SETMODE; 

MAR*- CBA+1, : NORMX, EVENFIELD; 

NORMX: HTAB*- L LCY 8, : NODD; 

HALFX: HTAB*- L LCY 8, :NEVEN; 

NODD: L*-T«- 377 . T; 

AECL*- L, : XREST; ODD FIELD, FULL RESOLUTION 

NEVEN: L*- 377 AND T; EVEN FIELD OR HALF RESOLUTION 

AECL«-L, T<-0; 

XREST: L*- MD+T; 

T*-MD-1; 

DNX: DWA*-L, L«-T, TASK; 

SLC*-L, :DHT; 
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;DispIay Word Task 

DWT: T«- DWA; 

T«-*3+T+l; 

L<- AECL+T ,BUS=0.TASK; AECL CONTAINS NWRDS AT THIS TIME 
AECL<-L, :DWTZ; 

DWTY: BLOCK; 

TASK, :DWTF; 

DWTZ: LHITAB-l, BUS=0,TASK; 

HTAB*-L, : DOTAB; 

DOTAB: DDR<-0, :DWTZ; 

NOTAB: MAR<-T+-DWA; 

L*-AECL-T-1; 

ALUCY, L«-2+T; 

DWA«-L, : XNOMORE; 

DOMORE: DDR*-MD, TASK; 

DOR*-MD, : NOTAB; 

XNOMORE :DDR<- MD, BLOCK; 

DDR<- MD, TASK; 


DWTF: 


: DWT; 
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;AHo Ethernet Microcode, Version III, Boggs and Metcalfe 
;4-way branches using MEXT6 and NEXT7 

!17,20,EIFB00,EODOK,EOEOK,EWOCMD,EIFB01,EODPST,EOEPST,EOREST,EIFB10,EODCOL,EOECOL,EIREST,EIFB11,EODUGH, 
**EOEU6H,ERBRES; 

;2-way branches using NEXT7 

;E0CDW1, EOCOWX, and EIGO are ail related. Be careful! 

!7,10,,ElFOK,,EOCDW1,,EIFBAD,EOCDWX,EIGO; 

;Miscellaneous address constraints 

!7,10,,EOCDWO,EODATA,EIDFUL,EIDZ4,EOCDRS,EIDATA,EPOST; 

!7,10,,EIDOK,,,EIDMOR,EIDPST; 

11,1, EIFB1; 

!1,1,EIFRST; 

;2-way branches using MEXT9 
!1,2,E0INPR,£0INPN; 

!1,2,EODMOR,EODEND; 

!1,2,EOLDOK,EOLDBD; 

!1,2,EIFCHK,EIFPRM; 

! 1,2,EOCDWT,EOCDGO; 

!l,2,ECNTOK,ECMTZR; 

!1,2,EIFIGN,EISET; 

!1,2,EIFNBC,EIFBC; 


;R Memory Locations 

SECNTR $R12; Remaining words in buffer 

$EPNTR $R13; points BEFORE next word in buffer 

;Ethernet microcode Status codes 


SESIDON $377; 
SESODON $777; 
SESIFUL $1377 
$ESLOAD $1777 
$ESCZER $2377 
$ESABRT $2777 
SESNEVR $3377 


Input Done 
Output Done 

Input Buffer full - words lost from tail of packet 
Load location overflowed 

Zero word count for input or output command 
Abort - usually caused by reset command 
Mever Happen - Very bad if it does 


;Main memory locations in page 1 reserved for Ethernet 


$EPLOC $600; 
$EBLOC $601; 

$EELOC $602; 
$ELLOC $603; 


Post location 
Interrupt bit mask 

Ending count location 
Load location 


$EICLOC $604; 
SEIPLOC $605; 

SEOCLOC $606; 
SEOPLOC $607; 


Input buffer Count 
Input buffer Pointer 

Output buffer Count 
Output buffer Pointer 


$EHLOC $610; Host Address 


;Function Definitions 


$EIDFCT $L000000,014004,000100; BS 
SEILFCT $L016013,070013,000100; FI 
$EPFCT $L016014,070014,000100; FI 
$EWFCT $L016015,000000,000000; FI 


4, Input data 

13, Input Look 

14, Post 

15, Wake-Up 


$E0DFCT $L026010,000000,124000; F2 
SEOSFCT $L024011,000000,000000; F2 
$ERBFCT $L024012,000000,000000; F2 
$EEFCT $L024013,000000,000000; F2 
$EBFCT SL024014,000000,000000; F2 
$ECBFCT $L024015,000000,000000; F2 
$EISFCT $L024016,000000,000000; F2 


10, Output data 

11, Start output 

12, Rest branch 

13, End of output 

14, Branch 

15, Countdown branch 

16, Start input 
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- Whenever a label has a pending branch, the list of possible 
destination addresses is shown in brackets in the comment field. 

- Special functions are explained in a comment near their first use. 

- To avoid naming conflicts, all labels and special functions 
have "E" as the first letter. 

Top of Ethernet Task loop 

Ether Rest Branch Function - ERBFCT 

merge ICMD and OCMD Flip Flops into NEXT6 and NEXT7 

ICMC and OCMD are set from ACO [14:15] by the SXO instruction 


00 

neither 


01 

OCMD - Start 

output 

10 

ICMD - Start 

input 

11 

Both - Reset 

interface 


in preparation for a hack at EIREST, zero EPNTR 

What's happening ? 
[EMOCMD.EOREST,EIREST,ERBRES] 

Shouldn't happen 
Reset Command 

;Post status and halt. Microcode status in L. 

;Put microstatus,,hardstatus in EPLOC, merge c(EBLOC) into NWW. 
;Note that we write EPLOC and read EBLOC in one operation 


-] EREST: L* 0,ERBFCT; 

5"2_ EPNTR<- L , : ENOCMD; 

ENOCMD: L* ESNEVR, : EPOST; 
ERBRES: L* ESA8RT,: EPOST; 


;Ether Post Function - EPFCT. Gate the hardware status 
;(LOW TRUE) to Bus [10:15], reset interface. 


EPOST: MAR*- EELOC; 

EPNTR*- L.TASK; Save microcode status in EPNTR 

MD*- ECNTR; Save ending count 


MAR* EPLOC; 

T* NWW; 

MD* EPNTR,EPFCT; 
L* MD OR T.TASK; 
NWW* L,:EREST; 


double word reference 

BUS AND EPNTR with Status 
NWW OR c(EBLOC) 

Done. Wait for next command 


;This is a subroutine called from both input and output (EOCDGO 
;and EISET). The return address is determined by testing ECBFCT, 
;which will branch if the buffer has any words in it, which can 


check for zero length 
[ECNTOK.ECNTZR] start-1 

Zero word count. Abort 

;Ether Countdown Branch Function - ECBFCT. 

;NEXT7 = Interface buffer not empty. 


;only happen during input. 


ZU>Z ESETUP: NOP; 

=—- L< _ MD BUS = 0 ; 

T* MD-1, : ECNTOK; 

2.-P3 ECNTZR: L* ESC7.ER,: EPOST; 


7,61 ECNTOK: ECNTR* L,L* T,ECBFCT,TASK; 

EPNTR* L,:E0DATA; [EODATA,EIDATA] 




t 
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;Ethernet Input 


;It turns out that starting the receiver for the first time and 
restarting it after ignoring a packet do the same things. 


EIREST: :EIFIGN; 


Hack 


;Address filtering code. 

;When the first word of a packet is available in the interface 
;buffer, a wakeup request is generated. The microcode then 
jdecides whether to accept the packet. Decision must be reached 
•.before the buffer overflows, within about 14*5.44 usee. 

;if EHLOC is zero, machine is 'promiscuous' - accept all packets 
;if destination byte is zero, it is a 'broadcast' packet, accept. 
;if destination byte equals EHLOC, packet is for us, accept. 

;EIFRST is really a subroutine that can be called from EIREST 
;or from EIGO, output countdown wait. If a packet is ignored 
;and EPNTR is zero, EIFRST loops back and waits for more 
;packets, else it returns to the countdown code. 

;Ether Branch Function - EBFCT 

;NEXT7 = IDL % OCMD % ICMD % OUTGONE % INGONE (also known as POST) 
;NEXT6 = COLLision - Can't happen during input 

(53 EIFRST: MAR<- EHLOC: Get Ethernet address 

T<- 377,EBFCT; What's happening? 

L<- MO AND T,BUS = 0, : EIFOK ; [EIFOK, EIFBAD] promiscuous? 


2-Z\ EIFOK: MTEMP*- LLCY8 , : EIFCHK; 

EIFBAD: ERBFCT,TASK,:EIFB1; 
EIFB1: :EIFBOO; 

EIFB00: :EIFIGN; 

EIFB01: L*- ESABRT, : EPOST; 

EIFB10: L«- ESABRT ,: EPOST; 
EIFB11: L«- ESABRT, : EPOST; 

EIFPRM: TASK, : EIFBC ; 

;Ether Look Function - EILFCT.. 
;data buffer to the bus, but do 

•Z~5^£_s^EIFCHK: L<- T<- 177400,EILFCT; 

L<- MTEMP-T, SH = 0 ; 
SH=0,TASK,:EIFNBC; 


[EIFCHK,EIFPRM] Data wakeup 

[ElFBI] POST wakeup; xCMD FF set? 
[EIFBOO, EIFB01,EIFB10,EIFBU] 

IDL or INGONE, restart revr 

OCMD, abort 

ICMD, abort 

ICMD and OCMD, abort 

Promiscuous. Accept 

Gate the first word of the 
not increment the read pointer. 

Mask off sre addr byte (BUS AND) 
Broadcast? 

[EIFNBC,EIFBC] Our Address? 


EIFNBC: :EIFIGN; [EIFIGN,EISET] 

15~] EIFBC: : EISET; [EISET] Enter input main loop 

;Ether Input Start Function - EISFCT. Start receiver. Interface 
;wi11 generate a data wakeup when the first word of the next 
;packet arrives, ignoring any packet currently passing. 

2.5 \ EIFIGN: SINK<- EPNTR , BUS = 0, EPFCT; Reset; Called from output? - T-f. 

x -j T_ j[ISFCT,TASK, : E° CDWX ; [F.OCDWX, EIGO] Restart revr 

2.2. EOCDWX: EWFCT,: EOCDWT; Return to countdown wait loop 

-L%5 EISET : MAR*- EICLOC, : ESET UP; Double word reference 

•.Input Main Loop 


Ether Input Data Function - EIDFCT. Gate a word of data to 
the bus from the interface data buffer, increment the read ptr. 

*****WARNING***** 

The delay from decoding EIDFCT to gating data to the bus is 
marginal. Some logic in the interface detects the situation 
(which only happens occasionally) and stops SysClk for one cycle. 
Since memory data must be available during cycle 4, and SysClk 
may stop for one cycle, this means that the MD<- EIDFCT must 
happen in cycle 3. There is a bug in this logic which occasionally 
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;stops the clock in the instruction following the EIDFCT, so 
;the EIDFCT instruction should not be the last one of the task, 
;or it may screw up someone else (such as RDRAM). 


EIDOK, EIDMOR, and EIDPST must have address bits in the pattern: 
xxxl xxx4 xxx5 

EC8FCT is used to force an unconditional branch on NEXT7 


EIDATA: T«- ECNTR-1, BUS=0; 

MAR*- L*- EPNTR+1, EBFCT; [EIDMOR,EIDPST] What's happening 
EIDMOR: EPNTR*- L, L*- T, ECBFCT; [EIDOK, EIDPST] Guaranteed to branch 
~)A \ EIDOK: MD<- EIDFCT, TASK; [EIDZ4] Read a word from the interface 

EIDZ4: ECNTR*- L, : EIDATA; • 


; We get to EIDPST for one of two reasons: 

; (1) The buffer is full. In this case, an EBFCT (NEXT[7]) is pending. 

; We want to post "full" if this is a normal data wakeup (no branch) 
but just "input done" if hardware input terminated (branch). 

; (2) Hardware input terminated while the buffer was not full. 

; In this case, an unconditional branch on NEXT[7] is pending, so 
; we always terminate with "input done". 

EIDPST: L<- ESIDON, : EIDFUL; [EIDFUL,EPOST] Presumed to be INGONE 

EIDFUL: L<- ESIFUL, :EPOST; Input buffer overrun 






altoiicode3.mu 


27-Sep-79 17:57:30 


Page 10 


•.Ethernet output 

;It is possible to get here due to a collision. If a collision 
;happened, the interface was reset (EPFCT) to shut off the 
;transmitter. EOSFCT is issued to guarantee more wakeups while 
jgenerating the countdown. When this is done, the interface is 
;again reset, without really doing an output. 


EOREST: 

MAR<- ELLOC; 

L* R37; 

EPNTR*- LRSH1; 

L*- MD,EOSFCT; 

SH<0, ECNTR*- L; 

MTEMP*- LLSH1, :EOLDOK; 

Get load 

Use clock as random # gen 
Use bits [6:13] 

L* current load 
Overflowed? 

[E0LD0K,EOLDBD] 


EOLDBD: 

L<- ESLOAD, : EPOST; 

Load overlow 


EOLOOK: 

L*- MTEMP+1; 

MAR*- ELLOC; 

MTEMP* L.TASK; 

Write updated load 



MD* MTEMP,:EORSTl; 

New load = (old Ishift 1) 

+ 1 

E0RST1: 

L* EPNTR; 

EPNTR* LRSH1; 

T* 377; 

L* EPNTR AND T.TASK; 
EPNTR* L,:E0RST2; 

Continue making random ft 


;At this point, EPNTR has 0,,random number, ENCTR has old 

load. 

E0RST2: 

MAR* EICLOC; 

T* ECNTR; 

L* EPNTR AND T; 

SINK* MD,BUS=0; 

ECNTR* L,SH = 0,EPFCT, : 

Has an input buffer been 

L* Random & Load • 

EOINPR;[EOINPR,EOINPN] 

set up? 

EOINPR: 

EISFCT,:EOCDWT; 

[EOCDWT,EOCDGO] Enable in 

under out 


EOINPN: :EOCDWT; [EOCDWT,EOCDGO] No input. 

;Countdown wait loop. MRT will generate a wakeup every 
;37 usee which will decrement ECNTR. When it is zero, start 
;the transmitter. 

;Ether Wake Function - EWFCT. Sets a flip flop which will cause 
;a wakeup to this task the next time MRT wakes up (every 37 usee). 
;Wakeup is cleared when Ether task next runs. EWFCT must be 
•.issued in the instruction AFTER a task. 

EOCDWT: L* 177400 , EBFCT; What’s happening? 

EPNTR* L, ECBFCT , : E0CDW0; [EOCDWO, EOCDRS] Packet coming in? 
EOCDWO: L* ECNTR-1,BUS=0.TASK,:EOCDW1; [EOCDW1. EI60] 

EOCDW1: ECNTR*- L, EWFCT ,: EOCDWT ; [ EOCDWT, EOCDGO] 

EOCDRS: L<- ESABRT,:EPOST; [EPOST] POST event 

[EIFRST] Input under output 


1Z\ EIGO: 


:EIFRST; 
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;0utput main loop setup 

E0CDG0: MAR*- E0CL0C; Double word reference 

EPFCT; Reset interface 

EOSFCT,:ESETUP; Start Transmitter 

;Ether Output Start Function - EOSFCT. The interface will generate 
;a burst of data requests until the interface buffer is full or the 
;memory buffer is empty, wait for silence on the Ether, and begin 
;transmitting. Thereafter it will request a word every 5.44 us. 

-.Ether Output Data Function - EODFCT. Copy the bus into the 
;interface data buffer, increment the write pointer, clears wakeup 
;request if the buffer is now nearly full (one slot available). 

;Output main loop 

EODATA: L*- MAR<- EPNTR+1,EBFCT; What's happening? 

T<- ECNTR-1,BUS=Q, : EODOK; [EODOK,EODPST,EODCOL,EODUGH] 

EODOK: EPNTR*- L,L<- T,:EODMOR; [EODMOR, EODEND] 

EODMOR: ECNTR<- L.TASK; 

EODFCT*- MD, : EODATA; Output word to transmitter 

EODPST: L*- ESA8RT, : EPOST; [EPOST] POST event 

EODCOL: EPFCT,:EOREST; [EOREST] Collision 

EODUGH: L«- ESABRT ,: EPOST; [EPOST] POST + Collision 

;Ether EOT Function - EEFCT. Stop generating output data wakeups, 
;the interface has all of the packet. When the data buffer runs 
;dry, the interface will append the CRC and then generate an 
;OUTGONE post wakeup. 

EODEND: EEFCT; Disable data wakeups 

TASK; Wait for EEFCT to take 

:EOEOT; Wait for Outgone 

•.Output completion. We are waiting for the interface buffer to 
;empty, and the interface to generate an OUTGONE Post wakeup. 

EOEOT: EBFCT; What's happening? 

:EOEOK; . [EOEOK,EOEPST,EOECOL,EOEUGH] 

EOEOK: L*- ESNEVR,: EPOST; Runaway Transmitter. Never Never. 

EOEPST: L*- ESODON,: EPOST; POST event. Output done 

EOECOL: EPFCT,:EOREST; Collision 

EOEUGH: L*- ESABRT,: EPOST; POST + Collision 
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;Memory Refresh Task, 

;Mouse Handler, 

;EIA Handler, 

;Interval Timer, 

;Ca1ender Clock, and 
;part of the cursor. 

!17,20,TX0,TX6,TX3,TX2,TX8,TX5,TX1,TX7,TX4.; 

!1,2,DOTIMER,NOTIMER; 

!1,2,NOTIMER INT,TIMERINT; 

!1,2,DOCUR,NOCUR; 

!1,2,SH0WC,WAITC; 

!1,2,SPCHK,NOSPCHK; 

!1,2,NOCLK,CLOCK; 

!1,1.MRTLAST; 

!1,2,CNOTLAST.CLAST; 

SCLOCKTEMP $R11; 

SREFIIMSK $7777; 

; "'ATTENTIOII**' 

;There are two versions of the Memory refresh code: 

; AltoIIMRT4K.mu for refreshing 4K chips 

; AltoIIMRT16K.mu for refreshing 16K chips 

;You must name one or the other 'A1tolIMRT.mu'. 

;I suggest the following convention for naming the resulting .MB file: 
; A1toIICode3.MB for the 4K version 

; AltoIICode3XM.MB for the 16K version 

#A1tolIMRT.mu; 

CLOCK: MAR*- CLOCKLOC; 

NOP; 

L*- MD+1; 

MAR*- CLOCKLOC; 

MTEMP*- L, TASK; 

MD*- MTEMP, ;NOCLK; 

DOCUR: L<- T«- YPOS; 

SH<0, L*- 20-T-l; 

SH<0, L*- 2+T, : SHOWC; 

WAITC: YPOS*- L, L«- 0, TASK, 

SHOWC: MAR*- CLOCKLOC+T+1, :C 

CNOTLAST: T*- CURX, :CURF; 

CLAST: T<- 0; 

CURF: YPOS*- L, L«- T; 

CURX*- L; 

L*- MD, TASK; 

CURDATA*- L, : MRT; 


R37 OVERFLOWED. 

INCREMENT CLOCK IM MEMORY 


CHECK FOR VISIBLE CURSOR ON THIS SCAN 
***xl3 change: the constant 20 was 17 
[SHOWC,WAITC] 


:MRTLAST; 
INOTLAST; 


SQUASHES PENDING BRANCH 
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;AFTER THIS DISPATCH, T WILL CONTAIN XCHANGE, L'WILL CONTAIN YCHANGE-1 

TX1: L<- T«- ONE +T, :M00; Y=0, X = 1 

TX2: L<- T*- ALLONES, :M00; Y=0, X = -l 

TX3: L*- T«- 0, :M00; Y = l, X=0 

TX4: L<- T«- ONE AND T, :M00; Y=l, X=1 

TX5: L<- T<- ALLONES XOR T, :M00; Y=l, X = -l 

TX6: T<- 0, : MOO; Y=-l, X = 0 

TX7: T*- ONE, :M00; Y*-l, X=1 1 

TX8: T*- ALLONES, :M00; Y = -l, X = -l 


MOO: MAR«- MOUSELOC; 

MTEMP«- L; 

L<- MD+ T; 

T<- MD; 

T<- MTEMP+ T+l; 

MTEMP<- L, L*- T; 

MAR*- MOUSELOC; 
CLOCKTEMP*- L; 

MD*- MTEMP, TASK; 

MD*- CLOCKTEMP, :MRTA; 


START THE FETCH OF THE COORDINATES 
YCHANGE -1 
X+ XCHANGE 
Y 

Y+ (YCHANGE-1) + 1 

NOW RESTORE THE UPDATED COORDINATES 
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;CURSOR TASK 

;Cursor task specific functions 

SXPREG $L026010,000000,124000; F2 = 10 

$CSR SL026011,000000,124000; F2 = 11 

CURT: XPREG<- CURX , TASK; 

CSR<- CURDATA, :CURT; 


;PREDEFINITION FOR PARITY TASK. 

;THE CODE IS AT THE END OF THE FILE 
! 17,20,PRO, ,PR2,PR3,PR4,PR5,PR6,PR7,PR8.; 
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;NOVA EMULATOR 
tc&n «rk. 

$PC $R6; USED BY MEMORY INIT 




!7,10,Q0,Q1,Q2,Q3,Q4,Q5,Q6,Q7; 

! 1,2, FINSTO, IfJCPC; 

!l,2,EReRead,FINJMP; ***X21 addition. 

!1,2,EReadDone,FContRead; ***X2t addition. 

!l,2,EtherBoot,DiskBoot; ***X21 addition. 


-+>-N0VEM: IR*-L*-MAR*-0, :INXB,SAD+ 

00: L+ ONE. : INXA; 

Ql: L<- TOTUWC, :INXA; 

Q2: L*-402, :INXA; 

Q3: L+ 402, : INXA; 

Q4: L+ ONE, : INXA; 

Q5: L+377+1, :INXE; 

Q6: L+ONE , :INXE; 

Q7: MAR<- DASTART; 

L*- 0; 

R37 + L; 

MD<- 0; 

MAR+ 177034; 

L<- 100000; 

NWW+ L, T+ 0-1; 

L<- MD XOR T, BUSODD; 
MAR*- BDAD, : EtherBoot; 

DiskBoot: SAD*- L, L+ 0+1; 

MD*- SAD; 

MAR+ KBLKADR, :FINSTO; 


L; LOAD SAD TO ZERO THE BUS. STORE PC AT 0 
EXECUTED TWICE 

FIRST READ HEADER INTO 402, THEN 

STORE LABEL AT 402 

STORE DATA PAGE STARTING AT 1 

Store Ethernet Input Buffer Length ***X21. 

Store Ethernet Input Buffer Pointer ***X21 

CLEAR THE DISPLAY POINTER 


FETCH KEYBOARD 


*** X21 change. 

[EtherBoot, DiskBoot] *** X21 change. 

; BOOT DISK ADDRESS GOES IN LOCATION 12 


; Ethernet boot section added in X21. 

SNegBreathMl $177175; 

SEthNovaGo $3; First data location of incoming packet 

■A,~\0 — EtherBoot: L+EthNovaGo, :EReRead; [EReRead, FINJMP] 

—*■ EReRead:MAR+ EHLOC; Set the host address to 377 for breath packets 
^ TASK; 

MD+ 377; 

MAR*- EPLOC; Zero the status word and start 'er up 
SINK*- 2, STARTF; 

MD «- 0; 

— FContRead: MAR+ EPLOC; See if status is still 0 
T*- 377; Status for correct read 

L*- MD XOR T, TASK, BUS = 0; 

SAD*- L, :EReadDone; [EReadDone, EContRead] 

Agio ~ EReadDone: MAR*- 2; Check the packet type 

’ T*- NegBreathMl; -(Breath-of-1 ife)-l 

T+MD+T+1; 

L*-SAD OR T; 

SH=0, :EtherBoot; 


; SUBROUTINE USED BY INITIALIZATION TO SET UP BLOCKS OF MEMORY 
SEIOffset $576; 

INXA: T+ONE, :INXCom; ***X21 change. 

INXE: T+EIOffset, :INXCom; ***X21 addition. 


INXCom: MAR+T+IR+ SAD+T; *** X21 addition. 

PC*- L, L<- 0+T+1; *** X21 change. 

INXB: MD*- PC; 

SINK+ DISP, BUS,TASK; 

SAD+ L, :Q0; 
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;REGISTERS USED 

BY NOVA EMULATOR 



SACO 

$R3; 

AC’S ARE BACKWARDS 

BECAUSE THE HARDWARE 

SUPPLIES THE 

SAC1 

$R2; 

COMPLEMENT ADDRESS 

WHEN ADDRESSING FROM 

IR 

$AC2 

SRI; 




$AC3 

$R0; 




SXREG 

$R7; 





;PREDEFINITIONS FOR NOVA 

!17,20,GETAD,G1,G2,G3,G4,G5,G6,G7,G10,G11,G12,G13,G14,G15,G16,G17; 

! 17,20, XCTAB , XJSR , XISZ , XDSZ , XLDA, XSTA, CONVERT.; 

!3,4,SHIFT,SHI,SH2,SH3; 

!1,2,MAYBE,NOINT; 

!1,2,DOINT,DISO; 

!1,2,SOMEACTIVE,NOACTIVE; 

!1,2,IEXIT,NIEXIT; 

!17,1,ODDCX; 

!1,2,EIRO,EIR1; 

!7,1,INTCODE; 

!1,2,INTSOFF,INTSON; ***X21 addition for DIRS 

!7,10,EMCYCRET,RAMCYCRET,CYX2,CYX3,CYX4.CONVCYCRET,,; 

!7,2.MOREBLT,FINBLT; 

!1,2.DOIT,DISABLED; 

; ALL INSTRUCTIONS RETURN TO START WHEN DONE 


START: T+ MAR+PC+SKIP; 

START 1: L<- NWW, BUS = 0; BUS# 0 MEANS DISABLED OR SOMETHING TO DO 
:MAYBE, SH<0, L+ O+T+l; SHCO MEANS DISABLED 

MAYBE: PC+ L, L+ T, :DOINT; 

NOINT: PC<- L, :DISO; 

DOINT: MAR<- WWLOC, : INTCODE; TRY TO CAUSE AN INTERRUPT 

IDISPATCH ON FUNCTION FIELD IF ARITHMETIC INSTRUCTION, 

;OTHERWISE ON INDIRECT BIT AND INDEX FIELD 


DISO: L+ T<- IR+ MD; SKIP CLEARED HERE 

•.DISPATCH ON SHIFT FIELD IF ARITHMETIC INSTRUCTION, 
;OTHERWISE ON THE INDIRECT BIT OR IR[3-7] 


DIS1: T<- ACSOURCE, :GETAD; 


;GETAD MUST BE 0 MOD 20 


GETAD: T<- 0, :DOINS; 

PAGE 0 

G1 


T+ 

PC -1, :DOINS; 

RELATIVE 

G2 


T+ 

AC2, :DOINS; 

AC2 RELATIVE 

G3 


T<- 

AC3, .-DOINS; 

AC3 RELATIVE 

G4 


T+ 

0, :DOINS; 

PAGE 0 INDIRECT 

G5 


T+ 

PC -1, :DOINS; 

RELATIVE INDIRECT 

G6 


T+ 

AC2, :DOINS; 

AC2 RELATIVE INDIRECT 

G7 


T+ 

AC3, :DOINS; 

AC3 RELATIVE INDIRECT 

G10 

L+ 

O-T-l, TASK, :SHI FT; 

COMPLEMENT 

Gil 

L+ 

0-T, TASK, :SHIFT; 

NEGATE 

G12 

L+ 

0+T, TASK, :SHIFT; 

MOVE 

G13 

L+ 

O+T+l, TASK, :SHIFT; 

INCREMENT 

G14 

L+ 

ACDEST-T-1, TASK, :SHIFT; 

ADD COMPLEMENT 


G15 

G16 

G17 


L+ ACDEST-T, TASK, :SHIFT; SUBTRACT 

L+ ACDEST+T, TASK, :SHIFT; ADD 

L<- ACDEST AND T, TASK, -.SHIFT; 


SHIFT: 

DNS+ 

L 

LCY 

8, 

START; 

SWAP BYTES 

SHI: 

DNS+ 

L 

RSH 

1 , 

START; 

RIGHT 1 

SH2: 

DNS+ 

L 

LSH 

1 , 

START; 

LEFT 1 

SH3: 

DNS+ 

L 

:START 


NO SHIFT 


DOINS: L+ DISP + T, TASK, :SAVAD, IDISP; DIRECT INSTRUCTIONS 

DOIND: L+ MAR+ DISP+T; INDIRECT INSTRUCTIONS 

XREG+ L; 

L<- MD, TASK, IDISP, :SAVAD; 

BRI: L<- MAR+ PCLOC ; INTERRUPT RETURN BRANCH 

BRIO: T+ 77777; 
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L<- NWW AND T, SH < 0; 

NWW<- L, :EIRO; BOTH EIR AND BRI MUST CHECK FOR INTERRUPT 
REQUESTS WHICH MAY HAVE COME IN WHILE 
INTERRUPTS WERE OFF 


EIRO: L<- MD, :DOINT; 

EIR1: L<- PC, :DOINT; 

;***X21 addition 

; DIRS - 61013 - Disable Interrupts and Skip if they were On 
DIRS: T<-100000; 

L«-NWW AND T; 

L<-PC+1, SH=0; 

; DIR - 61000 - Disable Interrupts 
DIR: T<- 100000, :INTSOFF; 

INTSOFF: L<- NWW OR T, TASK, :INTZ; 

INTSON: PC<-L, : INTSOFF; 

;EIR - 61001 - Enable Interrupts 
EIR: L<- 100000, :BRI0; 

;SIT - 61007 - Start Interval Timer 
SIT: T<- ACO; 

L<- R37 OR T, TASK; 

R37<- L, :START; 


FINJSR: L<- PC; 

AC3<- L, L«- T, TASK; 

FINJMP: PC<- L, :START; 

SAVAD: SAD<- L, :XCTAB; 

;JSRII - 64400 - JSR double indirect, PC relative. Must have X = 1 in opcode 
;JSRIS - 65000 - JSR double indirect, AC2 relative. Must have X=2 in opcode 
JSRII: MAR<- DISP+T; FIRST LEVEL 

IR*- JSRCX; CJSR 0> 

T<- MD, :DOIND; THE IR<- INSTRUCTION WILL NOT BRANCH 
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;TRAP ON UNIMPLEMENTED OPCODES. SAVES PC AT 
;TRAPPC, AND DOES A JMP@ TRAPVEC ! OPCODE. 

TRAP: XREG«- L LCY 8; THE INSTRUCTION 

TRAP1: MAR<- TRAPPC;***X13 CHANGE: TAG 'TRAP1' ADDED 
IR«- T«- 37; 

MD<- PC; 

T<- XREG.T; 

T«- TRAPCON+T+1, :DOIND; T NOW CONTAINS 471+OPCODE 
; THIS WILL DO JMP@ 530+OPCODE 

;***X21 CHANGE: ADDED TAG RAMTRAP 
RAMTRAP: SWMODE, :TRAP; 

; Parameterless operations come here for dispatch. 

!1,2,NPNOTRAP,NPTRAP; 

NOPAR: XREG*-L LCY 8; ***X21 change. Checks < 27. 

T«-27; ***I 1X3. Greatest defined op is 26. 

L^-DISP-T; 

ALUCY; 

SINK<-DISP, SINK«-X37, BUS, TASK, : NPNOTRAP; 

NPNOTRAP: :DIR; 

NPTRAP: :TRAP1; 

;***X21 addition for debugging w/ expanded DISP Prom 


U5: 

:RAMTRAP 

U6: 

:RAMTRAP 

U7: 

:RAMTRAP 
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MAIN INSTRUCTION TABLE. GET HERE: 


» 

(1) 

AFTER AN INDIRECTION 

» 

(2) 

ON DIRECT 

INSTRUCTIONS 

XCTAB: 

L*- SAD, TASK, .-FINJMP; 

JMP 

XJSR: 

T<- SAD, : FINJSR; 

JSR 

XISZ: 

MAR*- SAD, : 

ISZ1; 

ISZ 

XDSZ: 

MAR*- SAD, : 

DSZ1; 

DSZ 

XLDA: 

MAR*- SAD, : 

FINLOAD; 

LDA 0-3 

XSTA: 

MAR*- SAD; 


/♦NORMAL 

XSTA1: 

L<- ACDEST, 

:FINSTO; 

/♦NORMAL 


BOUNDS-CHECKING VERSION OF STORE 

SUBST ";**<CR>" TO "<CR>;**" TO ENABLE THIS CODE: 

** !1,2,XSTA1,XSTA2; 

** !1,2,DOSTA.TRAPSTA; 

**XSTA: MAR*- 10; LOCS 10,11 CONTAINS HI.LO BOUNDS 

** T<- SAD 

** L<- MD-T; HIGHBOUND-ADDR 

** T*- MD, ALUCY; 

** L*- SAD-T, : XSTA1; ADDR-LOWBOUND 

**XSTA1: TASK, :XSTA3; 

**XSTA2: ALUCY, TASK; 

**XSTA3: L«- 177, :DOSTA; 

**TRAPSTA: XREG*- L, :TRAP1; CAUSE A SWAT 

**DOSTA: MAR*- SAD; DO THE STORE NORMALLY 

** L<- ACDEST, : FINSTO; 

*» 


DSZ1: T*- ALLONES, :FINISZ; 

ISZ1: T«- ONE, :FINISZ; 

FINSTO: SAD*- L .TASK ; 

FINST 1: MD*-SAD, :START; 

FINLOAD: NOP; 

LOADX: L<- MD, TASK; 

LOADD: ACDEST*- L, :START; 

FINISZ: L«- MD+T; 

MAR*- SAD, SH=0; 

SAD*- L, : FINSTO; 

INCPC: MD*- SAD; 

L*- PC+1, TASK; 

PC*- L, :START; 
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;DIVIDE. THIS DIVIDE IS IDENTICAL TO THE NOVA DIVIDE EXCEPT THAT 
;IF THE DIVIDE CANNOT BE DONE, THE INSTRUCTION FAILS TO SKIP, OTHERWISE 
;IT DOES. CARRY IS UNDISTURBED. 

!1,2,DODIV,NODIV; 

! 1,2,DIVL,ENDDIV; 

! 1,2,NOOVF,OVF; 

! 1,2,DX0.DX1; 

! 1,2 , NOSUB , DOSUB; 

DIV: T+ AC2; 

DIVX: L*- ACO - T; DO THE DIVIDE ONLY IF AC2>AC0 

ALUCY, TASK, SAD+ L, L+ 0+1; 

:DODIV, SAD*- L LSH 1; SAD*- 2. COUNT THE LOOP BY SHIFTING 

NODIV: :FINBLT; ***X21 change. 

DODIV: L*- ACO, :DIV1; 

DIVL: L+ ACO; 

DIV1: SH<0, T<- AC1; WILL THE LEFT SHIFT OF THE DIVIDEND OVERFLOW? 

: NOOVF, ACO*- L MLSH 1, L<- T«- 0+T; L<- AC1, T*- 0 

OVF: AC1<- L LSH 1, L<- 0+INCT, :N0V1; L*- 1. SHIFT OVERFLOWED 

NOOVF: AC1*- L LSH 1 , L«- T; L«- 0. SHIFT OK 

NOVI: T<- AC2, SH=0; 

L*- ACO-T, : DXO ; 

DX1: ALUCY; DO THE TEST ONLY IF THE SHIFT DIDN'T OVERFLOW. IF 

; IT DID, L IS STILL CORRECT, BUT THE TEST WOULD GO 

; THE WRONG WAY. 

:NOSUB, T«- AC1; 

DXO: :DOSUB, T*- AC1; 

DOSUB: AC0<- L, L*- 0+INCT; DO THE SUBTRACT 

AC1+ L; AND PUT A 1 IN THE QUOTIENT 

NOSUB: L+ SAD, BUS=0, TASK; 

SAD+ L LSH 1, :DIVL; 

ENDDIV: L+ PC+1, TASK, :D0IT; ***X21 change. Skip if divide was done. 
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;MULTIPLY. THIS IS AN EXACT EMULATION OF NOVA HARDWARE MULTIPLY. 
;AC2 IS THE MULTIPLIER. AC1 IS THE MULTIPLICAND. 

;THE PRODUCT IS IN ACO (HIGH PART), AND AC1 (LOW PART). 

;PRECISELY: AC0.AC1 <- AC1*AC2 + ACO 

!1,2.DOMUL,NOMUL; 

!1,2,MPYL,MPYA; 

!1,2.NOADDIER,ADDIER; 

!1,2,NOSPILL,SPILL; 

!1,2,NOADDX,ADDX; 

!1,2,NOSPILLX,SPILLX; 


MUL: L*- AC2-1, BUS=0; 

MPYX: XREG*-L, L<- 0, :DOMUL; GET HERE WITH AC2-1 IN L. DON’T MUL IF AC2 = 0 

DOMUL: TASK, L<- -10+1; 

SAD*- L; COUNT THE LOOP IN SAD 

MPYL: L<- AC1, BUSODD; 

T«- ACO, : NOADDIER; 

NOADDIER: AC1<- L MRSH 1. L*- T, T<- 0, :NOSPILL; 

ADDIER: L*- T*- XREG+INCT; 

L<- AC1, ALUCY, .NOADDIER; 


SPILL: T<- ONE; 

NOSPILL: ACO*- L MRSH 1; 

L<- AC1, BUSODD; 

T<- ACO, :NOADDX; 

NOADDX: AC1«- L MRSH 1, L*- T, T<- 0, : NOSPILLX; 

ADDX: L*- T*- XREG+ INCT; 

L*- AC 1, ALUCY, : NOADDX; 

SPILLX: T<- ONE; 

NOSPILLX: AC0«- L MRSH 1; 

L«- SAD+1, BUS = 0, TASK; 

SAD*- L, :MPYL; 

NOMUL: T*- ACO; 

ACO*- L, L<- T, TASK; CLEAR ACO 
AC1<- L; AND REPLACE AC1 WITH ACO 

MPYA: :FINBLT; ***X21 change. 
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;CYCLE ACO LEFT BY DISP MOD 20B, UNLESS DISP=0, IN WHICH 
;CASE CYCLE BY AC1 MOD 20B 
;LEAVES AC1=CYCLE COUNT-1 MOD 20B 

SCYRET $R5; Shares space with SAD. 

SCYCOUT $R7; Shares space with XREG. 

!1,2,EMCYCX,ACCYCLE; 

!1,1,Y1; 

!1,1,Y2; 

11.1.Y3; 

H.l.Zl; 

!1,1,Z2; 

! 1,1,Z3; 

EMCYCLE; L<- DISP, SINK*- X17, BUS = 0; CONSTANT WITH BS = 7 
CYCP: T«- ACO, : EMCYCX; 

ACCYCLE: T<- AC1; 

L<- 17 AND T, :CYCP; 

EMCYCX: CYCOUT*-L, L«-0, :RETCYCX; 

RAMCYCX: CYCOUT*-L, L«-0+l; 

RETCYCX: CYRET+-L, L*-0+T; 

SINK*-CYCOUT, BUS; 

TASK, :LO; 

;TABLE FOR CYCLE 

R4: CYCOUT*- L MRSH 1; 

Y3: L*- T*- CYCOUT, TASK; 

R3X: CYCOUT*- L MRSH 1; 

Y2: L*- T<- CYCOUT, TASK; 

R2X: CYCOUT*- L MRSH 1; 

Yl: L*- T*- CYCOUT, TASK; 

R1X: CYCOUT*- L MRSH 1, : ENDCYCLE; 

L4: CYCOUT*- L MLSH 1; 

Z3: L<- T*- CYCOUT, TASK; 

L3: CYCOUT*- L MLSH 1; 

Z2: L*- T*- CYCOUT, TASK; 

L2: CYCOUT*- L MLSH 1; 

Zl: L** T*- CYCOUT, TASK; 

LI: CYCOUT*- L MLSH 1, : ENDCYCLE; 

LO: CYCOUT*- L, : ENDCYCLE; 


L8: 

CYCOUT*- 

L 

LCY 

8, 

:ENDCYCLE; 

L7: 

CYCOUT*- 

L 

LCY 

8, 

: Yl; 

L6: 

CYCOUT*- 

L 

LCY 

8, 

:Y2; 

L5: 

CYCOUT*- 

L 

LCY 

8, 

:Y3; 


R7: 

CYCOUT*- 

L 

LCY 

8, 

:Z1; 

R6: 

CYCOUT*- 

L 

LCY 

8, 

:Z2; 

R5: 

CYCOUT*- 

L 

LCY 

8, 

:Z3; 


ENDCYCLE: SINK*- CYRET, BUS, TASK; 

:EMCYCRET; 

EMCYCRET: L*-CYCOUT, TASK, : LOADD; 
RAMCYCRET: T*-PC, BUS, SWMODE, :T0RAM; 
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; Scan convert instruction for characters. Takes DWAX (Destination 
; word address)-NWRDS in ACO, and a pointer to a .AL-format font 
; in AC3. AC2+dispiacement contains a pointer to a two-word block 
; containing NWRDS and DBA (Destination Bit Address). 

$XH $R10; 

$DWAX $R35; 

SMASK $R36; 

!1,2,HDLOOP,HDEXIT; 

11.2,MERGE,STORE: 

.!1,2,NFIN,FIN; 

!17,2,DOBOTH.MOVELOOP; 


CONVERT: MAR*-XREG+1; Got here via indirect mechanism which 
; left first arg in SAD, its address in XREG. 



T«-17; 

L<-MD AND T; 




T«-MAR<-AC3; 
AC1«-L; 

L<-MD+T, TASK; 
AC3<-L; 

ACleDBA&i717 

AC3<-Character descriptor block address(Char) 

ODDCX: 

MAR<-AC3+1; 

T<-177400; 

IR<-L»-MD AND T; 

XH<-L LCY 8, :ODDCX; 
L«-AC0, : HDENTER; 

IR«-XH 

XH register temporarily contains HD 

HDLOOP: 

T<-SAO; 

L<-DWAX+T; 


(really NWRDS) 

HDENTER 

: DWAX*-L; 

L«-XH-1, BUS = 0, 
XHeL, :HDLOOP; 

TASK; 

DWAX <- AC0+HD*NWRDS 


HDEXIT: T«-MASKTAB; 

MAR«-T<-AC1+T; 

L*-DISP; 

XH<-L; 

L*-MD; 

MASK«-L , L<-0+T+l, TASK;. 
AC1*-L; 

L<-5; 

IR<-SAD, TASK; 

CYRET«-L, : MOVELOOP; 

MOVELOOP: L«-T<-XH-1, BUS=0; 

MAR«-AC3-T-1, :NFIN; 
NFIN: XH<-L; 

T<-DISP; 

L«-DWAX+T; 

T «-MD; 

SINK<-AC1, BUS; 

DWAX<-L, L<-T, 

CONVCYCRET: MAR<-DWAX; 

T«-MASK, BUS=0; 

T<-CYCOUT .T, :MERGE; 


MERGE: L<-XREG AND NOT T; 

T<-MD OR T; 

XREG«-L, L<-T; 

MTEMP«-L; 

MAR«-DWAX; 

SINK«-XREG , BUS = 0, TASK; 
MD«-MTEMP, : DOBOTH; 


DOBOTH: MAR<-DWAX+1; 
T«-XREG; 


Fetch the mask. 

XH register now contains XH 


***X21. AC1 «- (DBA&#17) + 1 

***X21. Calling conventions changed 

CYRET*-CALL5 


Fetch next source word 

(really NWRDS) 

Update destination address 


Call Cycle subroutine 


Data for first word. If MASK=0 
; then store the word rather than 
; merging, and do not disturb the 
; second word. 

Data for second word. 

First word now merged. 


restore it. 

XREG=0 means only one word 
; is involved. 


TASK, :L0; 
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STORE: 

FIN: 


L«-MD OR T; 
MAR«-DWAX+1; 

XREG<-L, TASK; 
MD«-XREG, : MOVE LOOP; 


***X21. TASK added. 


L*-AC1-1; 

AC1*-L; 

IR<-SH3CONST; 

L*-MD, TASK, :SHI; 


***X21. Return AC1 to DBA&017. 
*** ... bletch ... 
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;RCLK - 61003 - Read the Real Time Clock into AC0.AC1 
RCLK: MAR<- CLOCKLOC; 

L<- R37; 

AC1<- L, : LOADX; 

;SIO - 61004 - Put AC0 on the bus, issue STARTF to get device attention, 
;Read Host address from Ethernet interface into AC0. 

SIO: L«- AC0, STARTF; 

T«- 77777 ; ***X21 sets AC0[0] to 0 

L«- RSNF AND T; 

LTOACO : AC0<- L, TASK, : TOSTART; 

;EngNumber is a constant returned by VERS that contains a discription 
;of the Alto and it's Microcode. The composition of EngNumber is: 

; bits 0-3 Alto engineering number 

; bits 4-7 Alto build 

; bits 8-15 Version number of Microcode 

;Use of the Alto Build number has been abandoned. 

;the engineering number (EngNumber) is in the MRT files because it 
; it different for Altos with and without Extended memory. 

VERS: T<- EngNumber; ***V3 change 

L«- 3+T, : LTOACO; ***V3 change 

;XMLDA - Extended Memory Load Accumulator. 

; AC0 «- @AC1 in the alternate bank 

XMLDA: XMAR«- AC1, : FINLOAD; ***V3 change 

;XMSTA - Extended Memory Store Accumulator 
; @AC1 <- ACO in the alternate bank 

XMSTA: XMAR«- AC1, :XSTA1; ***V3 change 
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;BLT - 61005 - Block Transfer 
;BLKS - 61006 - Block Store 
; Accepts in 

; ACO/ BLT: Address of first word of source block-1 

; BLKS: Data to be stored 

AC1/ Address of last word of destination block 
; AC3/ NEGATIVE word count 

; Leaves 

; ACO/ BLT: Address of last word of source block+1 

; BLKS: Unchanged 

; AC1/ Unchanged 

; AC2/ Unchanged 

; AC3/ 0 

; These instructions are interruptable. If an interrupt occurs, 

; the PC is decremented by one, and the ACs contain the intermediate 
; so the instruction can be restarted when the interrupt is dismissed. 

!1,2,PERHAPS, NO; 

BLT: L<- MAR*- AC0+1; 

ACO*- L; 

L<- MD, :BLKSA; 

BLKS: L*- ACO; 

BLKSA: T<- AC3+1, BUS = 0; 

MAR*- AC1+T , : MOREBLT; 

MOREBLT: XREG<- L, L<- T; 

AC3«- L, TASK; 

MD<- XREG; STORE 

L<- NWW, BUS = 0; CHECK FOR INTERRUPT 

SH<0, :PERHAPS, L*- PC-1; Prepare to back up PC. 

NO: SINK*- DISP, SINK*- M7, BUS, DISABLED; 

PERHAPS: SINK*- DISP, SINK*- M7, BUS, :DOIT; 

DOIT: PC*-L, : FINBLT; ***X21. Reset PC, terminate instruction. 

DISABLED: ;DIR; GOES TO BLT OR BLKS 

FINBLT: T<-777; ***X21. PC in [177000-177777] means Ram return 

L*-PC+T+1; 

L*-PC AND T, TASK, ALUCY; 

TOSTART: XREG*-L, :START; 

RAMRET: T«-XREG, BUS, SWMODE; 

TORAM: ;NOVEM; 
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;PARAMETERLESS INSTRUCTIONS FOR DIDDLING THE WCS. 

;JMPRAM - 61010 - JUMP TO THE RAM ADDRESS SPECIFIED BY AC1 
JMPR : T<-AC1, BUS, SWMODE , :TORAM; 


;RDRAM - 61011 - READ THE RAM WORD ADDRESSED BY AC1 INTO ACO 
RDRM: T<- AC1, RDRAM; 

L<- ALLONES, TASK, : LOADD; 


;WRTRAM - 61012 - WRITE AC0.AC3 INTO THE RAM LOCATION ADDRESSED BY AC1 
WTRM: T«- AC1; 

L<- ACO, WRTRAM; 

L«- AC3, :FINBLT; 
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;DOUBLE WORD INSTRUCTIONS 



;DREAD - 61015 

; ACO*- rv{AC3); AC1<- rv(AC3 xor 1) 


DREAD: MAR*- AC3; 

START MEMORY CYCLE 


NOP; 

DELAY 


DREAD1: L*- MD; 

FIRST READ 


T<-MD; 

SECOND READ 


ACO*- L. L*-T, TASK; 

STORE MSW 


AC1*- L, : START; 

STORE LSW 


;DWRITE - 61016 

; rv( AC3)<- ACO; rv(AC3 

xor 1)*- AC1 


DWRITE: MAR*- AC3 ; 

START MEMORY CYCLE 


NOP; 

DELAY 


MD<- ACO, TASK; 

FIRST WRITE 


MD*- AC1, :START; 

SECOND WRITE 


;DEXCH - 61017 

; t*- rv(AC3); rv(AC3)<- 

ACO; ACO*- t 


; t*- rv(AC3 xor 1); rv(AC3 xor 1)<- AC1; AC1*- t 


DEXCH: MAR*- AC3; 

START MEMORY CYCLE 


NOP; 

DELAY 


MD«- ACO; 

FIRST WRITE 


MD<- AC1, :DREAD1; 

SECOND WRITE, GO TO READ 


;DIOGNOSE INSTRUCTIONS 



;DI0G1 - 61022 
; Hamming Code*- AC2 

rv( AC3)*- ACO; rv(AC3 

xor 1)*- AC1 


DIOG1: MAR*- ERRCTRL; 

START WRITE TO ERROR CONTROL 


NOP; 

DELAY 


MD*- AC2,:DWRITE; 

WRITE HAMMING CODE, GO TO DWRITE 


;DIOG2 - 61023 

rv(AC3)<- ACO 



; rv(AC3)<- ACO xor AC1 

DI0G2: MAR*- AC3 ; 

START MEMORY CYCLE 


T*- ACO; 

SETUP FOR XOR 


L*- AC1 XORT; 

DO XOR 


MD*- ACO; 

FIRST WRITE 


MAR*- AC3; 

START MEMORY CYCLE 


ACO*- L, TASK; 

STORE XOR WORD 


MD*- ACO, :START; 

SECOND WRITE 
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;INTERRUPT SYSTEM. TIMING IS 0 CYCLES IF DISABLED, 18 CYCLES 
;IF THE INTERRUPTING CHANEL IS INACTIVE, AND 36+6N CYCLES TO CAUSE 
;AN INTERRUPT ON CHANNEL N 

INTCODE : PC*- L, IR+ 0; 

T«- NWW; 

T*- MD OR T; 

L<- MD AND T; 

SAD*- L, L<- T, SH=0; SAD HAD POTENTIAL INTERRUPTS 

NWW*- L, L*-0+l, : SOMEACTIVE; NWW HAS NEW WW 

NOACTIVE: MAR*- WWLOC; RESTORE WW TO CORE 

L<- SAD; AND REPLACE IT WITH SAD IN NWW 

MO*- NWW, TASK; 

INTZ: NWW<- L, : START; 

SOMEACTIVE: MAR*- PCLOC; STORE PC AND SET UP TO FIND HIGHEST PRIORITY REQUEST 
XREG*- L, L<- 0; 

MD<- PC, TASK; 

ILPA: PC*- L; 

ILP: T*- SAD; 

L*- T<- XREG AND T; 

SH=0, L<- T, T<- PC; 

: IEXIT, XREG*- L LSH 1; 

NIEXIT: L*- O+T+l, TASK. :ILPA; 

IEXIT: MAR*- PCLOC+T+1; FETCH NEW PC. T HAS CHANNEL #, L HAS MASK 

XREG*- L; 

T<- XREG; 

L+ NWW XOR T; TURN OFF BIT IN WW FOR INTERRUPT ABOUT TO HAPPEN 
T<- MD; 

NWW*- L, L+ T; 

PC*- L, L+ T*- 0+1, TASK; 

SAD*- L MRSH 1, :NOACTIVE; SAD+ 1B5 TO DISABLE INTERRUPTS 
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***:*******$*** * * *.* ***** * 

* BIT-BLT - 61024 * 

*******«**********»***:** 

Modified September 1977 to support Alternate memory banks 
Last modified Sept 6, 1977 by Dan Ingalls 

/* NOVA REGS 

AC2 -> BLT DESCRIPTOR TABLE, AND IS PRESERVED 
AC1 CARRIES LINE COUNT FOR RESUMING AFTER AN 
INTERRUPT. MUST BE 0 AT INITIAL CALL 
ACO AND AC3 ARE SMASHED TO SAVE S-REGS 

/* ALTO REGISTER USAGE 

DISP CARRIES: TOPLD(IOO), SOURCEBANK(40), DESTBANK(20), 

SOURCE(14), 0P(3) 


SMASK1 

$R0 


$YMUL 

$R2 

HAS TO BE AN R-REG FOR SHIFTS 

$RETN 

$R2 


$SKEW 

$R3 


STEMP 

$R5 


SWIDTH 

$R7 


SPLIER 

$R7 

HAS TO BE AN R-REG FOR SHIFTS 

SDESTY 

$R10 


SW0RD2 

SR10 


SSTARTBITSM1 

$R35 


$SWA 

$R36 


SDESTX 

$R36 


$LREG 

$R40 

HAS TO BE R40 (COPY OF L-REG) 

SNLINES 

SR41 


SRAST1 

$R42 


SSRCX 

$R43 


SSKMSK 

$R43 


$SRCY 

$R44 


$RAST2 

$R44 


SCONST 

$R45 


STWICE 

$R45 


SHCNT 

$R46 


$VINC 

$R46 


SHINC 

$R47 


SNWORDS 

$R50 


$MASK2 

$R51 

WAS $R46; 

SLASTMASKPl 

$500 

MASKTABLE+021 

$170000 

$170000; 

SCALL3 

$3; 

SUBROUTINE CALL INDICES 

$CALL4 

$4; 


SDWAOFF 

$2; 

BLT TABLE OFFSETS 

SDXOFF 

$4; 


SDWOFF 

$6; 


$DHOFF 

$7; 


SSWAOFF 

$10 


$SXOFF 

$12 


SGRAYOFF 

$14 

GRAY IN WORDS 14-17 

SLASTMASK 

$477 

MASKTABLE+020 **NOT IN EARLIER PROMS! 
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BITBLT SETUP - CALCULATE RAM STATE FROM AC2'S TABLE 


; /* FETCH COORDINATES FROM TABLE 

!1,2,FDDX,BLITX; 

!1,2,FDBL,BBN0RAM; 

!17,20,FDBX,,,,FDX,,FDW,,,,FSX.; FDBL RETURNS (BASED ON OFFSET) 

; (0) 4 6 12 

BITBLT: L*- 0; 

SINK+LREG, BUSODD; SINK+ -1 IFF NO RAM 

L«- T«- DWOFF , : FDBL; 

BBNORAM: TASK, :NPTRAP; TRAP IF NO RAM 

FDW: T*- MD; PICK UP WIDTH, HEIGHT 

WIDTH*- L, L<- T, TASK, :NZWID; 

NZWID: NLINES*- L; 

T<- AC1; 

L«- NLINES-T; 

NLINES*- L, SH<0, TASK; 

:FDDX; 

FDDX: L<- T*- DXOFF , : FDBL; PICK UP DEST X AND Y 

FDX: T<- MD; 

DESTX<- L, L<- T, TASK; 

DESTY+ L; 

L*- T<- SXOFF, : FDBL; PICK UP SOURCE X AND Y 
FSX: T<- MD; 

SRCX*- L, L<- T, TASK; 

SRCY<- L, :CSHI; 


; /* FETCH DOUBLEWORD FROM TABLE (L<- T«- OFFSET, : FDBL) 

FDBL: MAR*- AC2+T; 

SINK*- LREG, BUS; 

FDBX: L<- MD, : FDBX; 

; /* CALCULATE SKEW AND HINC 

!1,2,LTOR,RTOL; 

CSHI: T«- DESTX; 

L<" SRCX-T-1 • 

T*- LREG+1, SH<0; TEST HORIZONTAL DIRECTION 

L*- 17.T, : LTOR; SKEW «- (SRCX - DESTX) MOD 16 
RTOL: SKEW*- L, L<- 0-1, :AH, TASK; HINC <- -1 

LTOR: SKEW*- L, L*- 0+1, :AH, TASK; HINC <- +1 

AH: HINC*- L; 

; CALCULATE MASK1 AND MASK2 

!1,2,IFRTOL,LNWORDS; 

!1,2,POSWID,NEGWID; 

CMASKS: T<- DESTX; 

T<- 17.T; 

MAR*- LASTMASKP1-T-1; 

L«- 17-T; 

STARTBITSM1*- L; 

L*- MD, TASK; 

MASK1*- L; 

L*- WIDTH-1; 

T*- LREG-1, SH<0; 

T*- DESTX+T+1, :POSWID; 

POSWID: T*- 17.T; 

MAR*- LASTMASK-T-1; 

T<- ALLONES; 

L<- HINC-1; 

L*- MD XOR T, SH = 0, TASK; @(MASKLOC+(15-((DESTX+WIDTH-1).17))) 

MASK2*- L, : IFRTOL; 

/* IF RIGHT TO LEFT, ADD WIDTH TO X'S AND EXCH MASK1, MASK2 
IFRTOL: T*- WIDTH-1; WIDTH-1 

L<- SRCX+T; 

SRCX*- L; SRCX <- SCRX + (WIDTH-1) 

L«- DESTX+T; 

DESTX*- L; DESTX *• DESTX + (WIDTH-1) 

T*- DESTX; 

L<- 17.T, TASK; 

STARTBITSM1*- L; STARTBITS + (DESTX.17) + 1 
T*- MASK1; 


STARTBITS *- 16 - (DESTX. 17) 
MASK1 + @(MASKLOC+STARTBITS) 

MASK2 <- NOT 
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L*- MASK2; 

MASK1+ L, L<- T.TASK; EXCHANGE MASK1 AND MASK2 
MASK2+L; 

; /* CALCULATE NWORDS 

! 1,2,LNW1.THIN; 

LNWORDS:T<- STARTBITSM1+1; 

L+ WIDTH-T-1; 

T<- 177760, SH<0; 

T<- LREG.T, : LNW1; 

LNW1: L+ CALL4; NWORDS *- (WIDTH-STARTBITS)/16 

CYRET*- L, L*- T, :R4, TASK; CYRET+CALL4 
.; **WIDTH REG NOW FREE** 

CYX4: L<- CYCOUT, :LNW2; 

THIN: T+ MASK1; SPECIAL CASE OF THIN SLICE 

L+MASK2. T; 

MASK1<- L, L<- 0-1; MASK1 <- MASK1.MASK2, NWORDS <- -1 

LNW2: NWORDS*- L; LOAD NWORDS 

; **STARTBITSM1 REG NOW FREE** 

i /* DETERMINE VERTICAL DIRECTION 

! 1.2.BTOT.TTOB; 

T*- SRCY; 

L+ DESTY-T; 

T<- NLINES-1, SH<0; 

L<- 0, :BTOT; VINC + 0 IFF TOP-TO-BOTTOM 
BTOT: L<- ALLONES; ELSE -1 

BT0T1: VINC*- L; 

L+ SRCY+T; GOING BOTTOM TO TOP 

SRCY<- L; ADD NLINES TO STARTING Y’S 

L+ DESTY+T; 

DESTY+ L, L*- 0+1, TASK; 

TWICE+L, :CWA; 

TTOB: T+ AC1, :BT0T1; TOP TO BOT, ADD NDONE TO STARTING Y’S 

; **AC1 REG NOW FREE**; 

; /* CALCULATE WORD ADDRESSES - DO ONCE FOR SWA, THEN FOR DWAX 

CWA: L+ SRCY; Y HAS TO GO INTO AN R-REG FOR SHIFTING 

YMUL+ L; 

T+ SWAOFF; FIRST TIME IS FOR SWA, SRCX 

L+ SRCX * 

; **SRCX,'SRCY REG NOW FREE** 

DOSWA: MAR*- AC2+T; . FETCH BITMAP ADDR AND RASTER 

XREG+ L; 

L+CALL3; 

CYRET+ L; CYRET+CALL3 

L+ MD; 

T+ MO; 

DWAX+ L, L+T, TASK; 

RAST2+ L; 

T+ 177760; 

L+ T«- XREG.T, :R4, TASK; SWA + SWA + SRCX/16 

CYX3: T+ CYCOUT; 

L+ DWAX+T; 

DWAX+ L; 

!1,2,NOADD,DOADD; 

! 1,2 ,MULLP, CDELT; SWA *- SWA + SRCY*RAST1 

L+ RAST2; 

SINK+ YMUL, BUS=0, TASK; NO MULT IF STARTING Y=0 

PLIER+ L, :MULLP; 

MULLP: L*- PLIER, BUSODD; MULTIPLY RASTER BY Y 

PLIER+ L RSH 1, :NOADD; 

NOADD: L+ YMUL, SH=0, TASK; TEST NO MORE MULTIPLIER BITS 
SHIFTS: YMUL+ L LSH 1, :MULLP; 

DOADD: T+ YMUL; 

L+ DWAX+T; 

DWAX+ L, L+T, :SHIFTB, TASK; 

; **PLIER, YMUL REG NOW FREE** 

!l,2,HNEG,HPOS; 

!1,2,VPOS,VNEG; 

!1,1,CD1; CALCULATE DELTAS = +-(NWORDS+2)[HINC] +-RASTER[VINC] 

CDELT: L<- T+ HINC-1; (NOTE T<- -2 OR 0) 

L+ T+ NWORDS-T, SH=0; (L+NWORDS+2 OR T+NWORDS) 
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CD1: SINK*- VINC, BUSODD, :HNEG; 

HNEG : T«- RAST2 , :VPOS; 

HPOS: L*- -2-T, :CD1; (MAKES L*~(NWORDS+2)) 

VPOS: L*- LREG+T, :GDELT, TASK; BY NOW, LREG » +-(NWORDS+2) 

VNEG: L«- LREG-T, :GDELT, TASK; AND T = RASTER 

GDELT: RAST2*- L; 

; /* END WORD ADDR LOOP 

!1,2,ONEMORE.CTOPL; 

L<- TWICE-1; 

TWICE*- L, SH<0; 

L«- RAST2 , : ONEMORE; USE RAST2 2ND TIME THRU 
ONEMORE: RAST 1*- L; 

L*- DESTY, TASK; USE DESTY 2ND TIME THRU 
YMUL*- L; 

L*- DWAX; USE DWAX 2ND TIME THRU 

T«- DESTX; CAREFUL - DESTX=SWA! ! 

SWA<- L, L<- T; USE DESTX 2ND TIME THRU 
T<- DWAOFF , : DOSWA; AND DO IT AGAIN FOR DWAX, DESTX 

; **TWICE, VINC REGS NOW FREE** 

I /* CALCULATE TOPLD 

!1,2,CTOP1,CSKEW; 

! 1,2,HM1,HI; 

! 1,2,NOTOPL,TOPL; 

CTOPL: L<- SKEW, BUS = 0, TASK; IF SKEW=0 THEN 0, ELSE 

CTX ; IR<- 0, :CTOP1; 

CTOP1: T«- SRCX; (SKEW GR SRCX.17) XOR (HINC EQ 0) 

L*- HINC-1; 

T*- 17.T, SH = 0; TEST HINC 
L<- SKEW-T-1, :HM1; 

HI; T*- HINC, SH<0; 

L<- SWA+T, : NOTOPL; 

HM1: T*- LREG; IF HINC = -1, THEN FLIP 

L<- O-T-l, :HI; THE POLARITY OF THE TEST 
NOTOPL: SINK*- HINC, BUSODD, TASK, :CTX; HINC FORCES BUSODD 
TOPL: SWA*- L, TASK; (DISP <- 100 FOR TOPLD) 

IR*- 100, : CSKEW; 

; **HINC REG NOW FREE** 

; /* CALCULATE SKEW MASK 

! 1,2.THINC,BCOM1; 

! 1,2,COMSK,NOCOM; 

CSKEW: T*- SKEW, BUS = 0; IF SKEW=0, THEN COMP 
MAR*- LASTMASKP1-T-1, :THINC; 

THINC: L*-HINC-1; 

SH=0; IF HINC=-1, THEN COMP 

BCOM1: T<- ALLONES, :COMSK; 

COMSK: L*- MD XOR T, :GFN; 

NOCOM: L<- MD, :GFN; 

! /* GET FUNCTION 

GFN: MAR*- AC2; 

SKMSK*- L; 

T«- MD; 

L*- OISP+T, TASK; 

IR<- LREG, : BENTR; DISP «- DISP -OR. FUNCTION 
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BIT8LT WORK - VERT AMO HORIZ LOOPS WITH 4 SOURCES, 4 FUNCTIONS 


; /* VERTICAL LOOP: UPDATE SWA, DWAX 

!1,2,DOO,VLOOP; 

VLOOP: T<- SWA; 

L<- RAST1+T; INC SWA BY DELTA 

SWA*- L; 

T«- DWAX • 

L*- RAST2+T, TASK; INC DWAX BY DELTA 

DWAX*- L; 

/* TEST FOR DONE, OR NEED GRAY 
!1,2,MOREV,DONEV; 

!1,2,BMAYBE,BNOINT; 

!1,2,BDOINT,BDISO; 

!1,2,DOGRAY,NOGRAY; 

BENTR: L*- T«- NLINES-1; OECR NLINES AND CHECK IF DONE 

NLINES*- L, SH<0; 

L*- NWW, BUS = 0, :MOREV; CHECK FOR INTERRUPTS 
MOREV: L*- 3.T, :BMAYBE, SH<0; CHECK DISABLED ***V3 change 

BNOINT: SINK*- DISP, SINK*- lgmlO, BUS=0, :BDISO, TASK; 

BMAYBE: SINK*- DISP, SINK*- IgmlO, BUS = 0, :BDOINT, TASK; TEST IF NEED GRAY(FUNC = 8,12) 

BDISO: CONST*- L, : DOGRAY; ***V3 change 

! /* INTERRUPT SUSPENSION (POSSIBLY) 

!1,l.DOIl; MAY GET AN OR-1 

BDOINT: :D0I1; TASK HERE 
D0I1: T<- AC2; 

MAR*- DHOFF+T; NLINES DONE = HT-NLINES-1 

T<- NLINES; 

L<- PC-1; BACK UP THE PC, SO WE GET RESTARTED 

PC*- L; 

L«- MD-T-1, :BLITX, TASK; ...WITH NO LINES DONE IN AC1 


; /* LOAD GRAY FOR THIS LINE (IF FUNCTION NEEDS IT) 

!1,2,PRELD,NOPLD; 

DOGRAY: T<- CONST-1; 

T*- GRAYOFF+T+1; 

MAR*- AC2+T; 

NOP; UGH 
L«- MD; 

NOGRAY: SINK*- DISP, SINK*- lgmlOO, BUS = 0, TASK; TEST TOPLD 
CONST*- L, : PRELD; 

; /* NORMAL COMPLETION 

NEGWID: L<- 0, :BLITX, TASK; 

DONEV: L«- 0, :BLITX, TASK; MAY BE AN OR-1 HERE! 

BLITX: AC1<- L, : FINBLT; 

! /* PRELOAD OF FIRST SOURCE WORD (DEPENDING ON ALIGNMENT) 

! 1,2 , AB1, NB1; 

PRELD: SINK*- DISP, SINK*- lgm40, BUS = 0; WHICH BANK 
T<- HINC, : AB1; 

NB1: MAR*- SWA-T, :XB1; (NORMAL BANK) 

AB1: XMAR*- SWA-T, :XB1; (ALTERNATE BANK) 

XB1: NOP; 

L<- MD, TASK; 

WORD2*- L, : NOPLD; 


NOPLD: 
DON3: 

DONO: 

DOO: 


LASTH 
LH1: 


/* HORIZONTAL LOOP - 3 CALLS FOR 1ST, MIDDLE AND LAST WORDS 
!1,2,FDISPA,LASTH; 

%17,17,14,DONO,,DON2,DON3; CALLERS OF HORIZ LOOP 

NOTE THIS IGNORES 14-BITS, SO Igml4 WORKS LIKE L<-0 FOR RETN 

!14,1,LH1; IGNORE RESULTING BUS 

L<- 3, :FDISP; CALL #3 IS FIRST WORD 

L*- NWORDS; 

HCNT*- L, SH<0; HCNT COUNTS WHOLE WORDS 

L*- HCNT-1, :DOO; IF NEG, THEN NO MIDDLE OR LAST 

HCNT*- L, SHCO; CALL #0 (OR-14! ) IS MIDDLE WORDS 

UGLY HACK SQUEEZES 2 INSTRS OUT OF INNER LOOP: 

L<- DISP, SINK*- lgml4, BUS, TASK, :FDISPA; (WORKS LIKE L<-0) 

:LH1; TASK AND BUS PENDING 

L«- 2, : FDISP; CALL #Z IS LAST WORD 
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D0N2: :VL00P; 


; /* HERE ARE THE SOURCE FUNCTIONS 

!17,20,,,,F0,,,,F1,,,,F2,,,,F3; IGNORE OP BITS IN FUNCTION CODE 
117,20,,,,F0A,,,,F1A,,,,F2A,,,, ; SAME FOR WINDOW RETURNS 

!3,4,OPO,OP1,OP2,0P3; 

!1,2,AB2,NB2; 

FDISP: SINK*- DISP, SINK*lgml4, BUS, TASK; 

FDISPA: RETN<- L, : FO; 

FO: SINK* DISP, SINK* Igm40, BUS=0, :WIND; FUNC 0 - WINDOW 

FI: SINK* DISP, SINK* lgm40, BUS=0, :WIND; FUNC 1 - NOT WINDOW 

F1A: T* CYCOUT; 

L* ALLONES XOR T, TASK, :F3A; 

F2: SINK* DISP, SINK* Igm40, BUS=0, :WIND; FUNC 2 - WINDOW .AND. GRAY 

F2A: T* CYCOUT; 

L* ALLONES XOR T; 

SINK* DISP, SINK* lgm20, BUS=0; WHICH BANK 
TEMP* L, :AB2; TEMP * NOT WINDOW 

NB2: MAR* DWAX, :XB2; (NORMAL BANK) 

AB2: XMAR* DWAX, :XB2; (ALTERNATE BANK) 

XB2: L* CONST AND T; WINDOW .AND. GRAY 

T* TEMP; 

T* MD .T; DEST.AND.NOT WINDOW 

L* LREG OR T, TASK, :F3A; (TRANSPARENT) 

F3: L* CONST, TASK, :F3A; FUNC 3 - CONSTANT (COLOR) 


; /* AFTER GETTING SOURCE, START MEMORY AND DISPATCH ON OP 

!1.2.AB3.NB3; 

F3A: CYCOUT* L; (TASK HERE) 

FOA: SINK* DISP. SINK* Igm20, BUS=0; WHICH BANK 

SINK* DISP, SINK* 1gm3, BUS, :AB3; DISPATCH ON OP 

NB3: T* MAR* DWAX, :OPO; (NORMAL BANK) 

AB3: T* XMAR* DWAX, :0P0; (ALTERNATE BANK) 


/* HERE ARE THE OPERATIONS - ENTER WITH SOURCE IN CYCOUT 
%16,17,15,STFULL,STMSK; MASKED OR FULL STORE (LOOK AT 2-BIT) 


* 


OP 0 - SOURCE 

OPO: 

SINK* RETN, BUS; 

TEST IF UNMASKED 

OPOA: 

L* HINC+T, :STFULL; 

ELSE :STMSK 

OP1: 

T* CYCOUT; 

L* MD OR T, :OPN; 

OP 1 - SOURCE .OR. DEST 

OP2: 

T* CYCOUT; 

L* MD XOR T, :OPN; 

OP 2 - SOURCE .XOR. DEST 

OP3: 

T* CYCOUT; 

L* O-T-l; 

T* LREG; 

L* MD AND T, :OPN; 

OP 3 - (NOT SOURCE) .AND. DEST 

OPN: 

SINK* DISP, SINK* lgm20, 
CYCOUT* L, :AB3; 

BUS-0, TASK; WHICH BANK 


; /* STORE MASKED INTO DESTINATION 

!1,2,STM2,STM1; 

!1,2,AB4,NB4; 

STMSK: L* MD; 

SINK* RETN, BUSODD, TASK; DETERMINE MASK FROM CALL INDEX 

TEMP* L, :STM2; STACHE DEST WORD IN TEMP 

STM1: T*MASK1, :STM3; 

STM2: T*MASK2, :STM3; 

STM3: L* CYCOUT AND T; ***X24. Removed TASK clause. 

CYCOUT* L, L* O-T-l; AND INTO SOURCE 

T* LREG; T* MASK COMPLEMENTED 

T* TEMP .T; AND INTO DEST 

L* CYCOUT OR T; OR TOGETHER THEN GO STORE 

SINK* DISP, SINK* Igm20, BUS=0, TASK; WHICH BANK 

CYCOUT* L, :AB4; 

NB4: T* MAR* DWAX, :OPOA; (NORMAL BANK) 

AB4: T* XMAR* DWAX, :OPOA; (ALTERNATE BANK) 

! /* STORE UNMASKED FROM CYCOUT (L=NEXT DWAX) 

STFULL: MD* CYCOUT; 

STFUL1: SINK* RETN, BUS, TASK; 

DWAX* L, :DONO; 
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/* WINDOW SOURCE FUNCTION 
; TASKS UPON RETURN. RESULT IN CYCOUT 

!1,2,D0CY,NOCY; 

!17,1,WIA; 

!1.2.NZSK.ZESK: 

!1,2,AB5,NB5; 

WIND: L+ T<- SKMSK, :AB5; ENTER HERE (8 INST TO TASK) 

NB5: MAR*- SWA. : XB5; (NORMAL BANK) 

AB5: XMAR*- SWA, :XB5; (ALTERNATE BANK) 

XB5: L<- W0RD2.T, SH=0; 

CYCOUT<- L, L<- O-T-l, :NZSK; CYC0UT+ OLD WORD .AND. MSK 
ZESK: L+ MD, TASK; ZERO SKEW BYPASSES LOTS 

CYCOUT<- L, : NOCY; 

NZSK: T«- MD; 

L+ LREG.T; 

TEMP*- L, L*-T, TASK; TEMP*- NEW WORD .AND. NOTMSK 

WORD2*- L; 

T<- TEMP; 

L*- T*- CYCOUT OR T; OR THEM TOGETHER 

CYCOUT*- L, L<- 0+1, SH = 0; DONT CYCLE A ZERO ***X21. 

SINK*- SKEW, BUS, :DOCY; 

DOCY: CYRET+ L LSH 1, L<- T, :L0; CYCLE BY SKEW ***X21. 

NOCY: T<- SWA, :WIA; (MAY HAVE OR-17 FROM BUS) 

CYX2: T«- SWA; 

WIA: L<- HINC+T; 

SINK*- DISP, SINK+ lgml4, BUS, TASK; DISPATCH TO CALLER 
SWA+ L, :FOA; 
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THE DISK CONTROLLER 


ITS REGISTERS: 


SDCBR 

$R34 

SKNMAR 

$R33 

SCKSUMR 

$R32 

SKWDCT 

$R31 

SKNMARW 

$R33 

SCKSUMRW 

$R32 

SKWDCTW 

$R31 


; ITS 

TASK SPECIFIC FUNCTIONS AND 

BUS SOURCES: 

SKSTAT 

SL020012,014003,124100; 

DF1 = 

12 (LHS) BS = 3 (RHS) 

$RWC 

SL024011,000000,000000; 

NDF2 

= 11 

SRECNO 

SL024012,000000,000000; 

NDF2 

= 12 

$INIT 

SL024010,000000,000000; 

NDF2 

= 10 

SCLRSTAT 

SL016014,000000,000000; 

NDF1 

= 14 

SKCOMM 

SL020015,000000,124000; 

DF1 = 

15 (LHS only) Requires 

SSWRNRDY 

SL024014,000000,000000; 

NDF 2 

= 14 

SKADR 

SL020016,000000,124000; 

DF1 = 

16 (LHS only) Requires 

SKDATA 

SL020017,014004,124100; 

DF1 = 

17 (LHS) BS = 4 (RHS) 

SSTROBE 

SL016011,000000,000000; 

NDF 1 

= 11 

$NFER 

SL024015,000000,000000; 

NDF2 

= 15 

SSTROBON 

$L024016,000000,000000; 

NDF 2 

= 16 

SXFRDAT 

SL024013,000000,000000; 

NDF2 

= 13 

SINCRECNO 

$L016013,000000,000000; 

NDF1 

= 13 


; THE DISK CONTROLLER COMES IN TWO PARTS. THE SECTOR 

; TASK HANDLES DEVICE CONTROL AND COMMAND UNDERSTANDING 

AND STATUS REPORTING AND THE LIKE. THE WORD TASK ONLY 
; RUNS AFTER BEING ENABLED BY THE SECTOR TASK AND 

; ACTUALLY MOVES DATA WORDS TO AND FRO. 

; THE SECTOR TASK 

LABEL PREDEFINITIONS: 

!1,2,COMM,NOCOMM; 

!1,2,COMM2,IDLE1; 

!1,2,BADCOMM,COMM3; 

!1,2,COMM4,ILLSEC; 

!1,2,COMM5,WHYNRDY; 

!1,2,STROB.CKSECT; 

!1,2,STALL,CKSECT1; 

!1,2,KSFINI,CKSECT2; 

!1,2,IDLE2,TRANSFER; 

!1,2,STALL2,GASP; 

!1,2,INVERT,NOINVERT; 

KSEC: MAR*- KBLKADR2; 

KPOQ: CLRSTAT; RESET THE STORED DISK ADDRESS 

MD*-L*-ALLONES+l, :GCOM2; ALSO CLEAR DCB POINTER 


GETCOM: MAR*-KBLKADR; GET FIRST DCB POINTER 
GCOM1: NOP; 

L«-MD; 

GCOM2: DCBR*-L .TASK; 

KCOMM*-TOWTT; IDLE ALL DATA TRANSFERS 

MAR*-KBLKADR3; GENERATE A SECTOR INTERRUPT 

T <-NWW; 

L*-MD OR T; 


MAR«-KBLKADR+1; STORE THE STATUS 
NWW*-L, TASK; 

MD*-KSTAT; 

MAR*-KBLKADR; WRITE THE CURRENT DCB POINTER 
KSTAT<-5; INITIAL STATUS IS INCOMPLETE. 

L*-DCBR,TASK,BUS=0; 

MD*-DCBR, : COMM; 


; BUS = 0 MAPS COMM TO NOCOMM 

COMM: T«-2; GET THE DISK COMMAND 

MARH7CBR+T; 
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T<-T0TUWC; 

L<-MD XOR T, TASK, STROBON; 

KWDCT«-L, : COMM2; 

; STROBON MAPS COMM2 TO TDLE1 

COMM2: T<-10; READ NEW DISK ADDRESS 
MAR<-DCBR+T+1; 

T<-KWDCT; 

L«-ONE AND T; 

L«--400 AND T, SH=0; 

T«-MD, SH=0, : INVERT; 

SH=0 MAPS INVERT TO MOINVERT 

INVERT: L<-2 XOR T, TASK, :BADCOMM; 

NOINVERT: L«-T, TASK. :BADCOMM; 

; SH=0 MAPS BADCOMM TO COMM3 

C0MM3: KNMAR«-L; 

MAR«-KBLKADR2; WRITE THE NEW DISK ADDRESS 

T«-SECT2CM; CHECK FOR SECTOR > 13 

L<-T<-KDATA«-KNMAR+T ; NEW DISK ADDRESS TO HARDWARE 

KADR*-KWDCT, ALUCY; DISK COMMAND TO HARDWARE 

L«-MD XOR T.TASK, :COMM4; COMPARE OLD AND NEW DISK ADDRESSES 

; ALUCY MAPS COMM4 TO ILLSEC 

C0MM4: CKSUMR«-L; 

MAR<-KBLKADR2; WRITE THE NEW DISK ADDRESS 
T«-CADM, SWRNRDY; SEE IF DISK IS READY 
L<-CKSUMR AND T, :C0MM5; 

; SWRNRDY MAPS COMM5 TO WHYNRDY 

COMM5: MD<-KNMAR; COMPLETE THE WRITE 

SH=0.TASK; 

:STROB; 

; SH=0 MAPS STROB TO CKSECT 

CKSECT: T<-KNMAR,NFER; 

L«-KSTAT XOR T, :STALL; 

; NFER MAPS STALL TO CKSECT1 

CKSECT 1: CKSUMR«-L,XFRDAT; 

T<-CKSUMR, : KSFINI; 

; XFRDAT MAPS KSFINI TO CKSECT2 

CKSECT2: L<-SECTMSK AND T; 

KSLAST: BLOCK,SH=0; 

GASP: TASK, :IDLE2; 

; SH=0 MAPS IDLE2 TO TRANSFER 

TRANSFER: KCOMM*-TOTUWC; TURN ON THE TRANSFER 

! 1,2,ERRFND,NOERRFND; 

!1,2,EF1,NEF1; 

DMPSTAT: T<-C0MERR1; SEE IF STATUS REPRESENTS ERROR 
L<-KSTAT AND T; 

MAR<-DCBR+1; WRITE FINAL STATUS 
KWDCT«-L, TASK ,SH=0; 

MD<-KSTAT, : ERRFND; 

; SH=0 MAPS ERRFND TO NOERRFND 

NOERRFND: T«-6; PICK UP NO-ERROR INTERRUPT WORD 


INTCOM: MAR*-DCBR+T; 
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T«-NWW; 

L«-MD OR T; 

SINK<-KWDCT, BUS = 0 .TASK; 

NWW«-L, : EF1; 

BUS=0 MAPS EF1 TO NEF1 

NEF1: MAR<-DCBR, :GC0M1; FETCH ADDRESS OF NEXT CONTROL BLOCK 

ERRFND: T«-7 . : INTCOM; PICK UP ERROR INTERRUPT WORD 
EF1: :KSEC; 

NOCOMM: L<-ALLON£S,CLRSTAT, -.KSLAST; 

IDLE1: L«-ALLONES,: KSLAST; 

IDLE2: KSTAT*-L0W14, :GETCOM; NO ACTIVITY THIS SECTOR 

BADCOMM: KSTAT<-7; ILLEGAL COMMAND ONLY NOTED IN KBLK STAT 

BLOCK; 

TASK,:EF1; 

WHYNRDY: NFER; 

STALL: BLOCK, :STALL2; 

; NFER MAPS STALL2 TO GASP 

STALL2: TASK; 

:DMPSTAT; 

ILLSEC: KSTAT<-7, :STALL; ILLEGAL SECTOR SPECIFIED 

STROB: CLRSTAT; 

L<-ALLONES,STROBE, :CKSECT1; 


KSFINI: KSTAT*-4, :STALL; 


COMMAND FINISHED CORRECTLY 
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;DISK WORD TASK 

;W0RD TASK PREDEFINITIONS 

!37,37,,,,RPO,INPREF1,CKPO,WPO,.PXFLP1,RDCKO,WRTO,REC1,,REC2,REC3,,.RECORC,RECOW,R0,,CKO,WO,,R2,,W2,,RE 
*»C0,,KWD; 

!1,2,RW1,RW2; 

! 1,2,CK1,CK2; 

! 1,2,CK3,CK4; 

! 1,2,CKERR,CK5; 

!1,2,PXFLP,PXF2; 

!1,2,PREFDONE,INPREF ; 

!1,2,,CK6; 

!1,2,CKSMERR,PXFLPO; 

KWD: BLOCK,:REC0; 

; SH<0 MAPS RECO TO RECO 

ANYTHING=INIT MAPS RECO TO KWD 

RECO: L«-2, TASK; LENGTH OF RECORD 0 (ALLOW RELEASE IF BLOCKED) 

KNMARW*-L; 

T<-KNMARW, BLOCK, RWC; GET ADDR OF MEMORY BLOCK TO TRANSFER 
MAR*-DCBR+T+1, :REC0RC; 

; WRITE MAPS RECORC TO RECOW 

; INIT MAPS RECORC TO KWD 

RECORC: T<-MFRRDL .BLOCK, :REC12A; FIRST RECORD READ DELAY 

RECOW: T<-MFR0BL,BLOCK, :REC12A; FIRST RECORD 0'S BLOCK LENGTH 

REC1: L<-10, INCRECNO; LENGTH OF RECORD 1 

T«-4, : REC12; 

REC2: L<-PAGE1, INCRECNO; LENGTH OF RECORD 2 

, T<-5, : REC12 ; 

REC12: MAR<-DCBR+T, RWC; MEM BLK ADDR FOR RECORD 

KNMARW*-L, :RDCK0; 

; RWC=WRITE MAPS RDCKO INTO WRTO 

; RWC=INIT MAPS RDCKO INTO KWD 

RDCKO: T«-MIRRDL, :REC12A; 

WRTO: T<-MIR0BL, :REC12A; 

REC12A: L<rMD; 

KWDCTW<-L, L«-T; 

COM1: KCOMM<- STUWC, :INPREF0; 

INPREF: L<-CKSUMRW+1, INIT, BLOCK; 

INPREFO: CKSUMRW<-L, SH<0, TASK, : INPREF1; 

; INIT MAPS INPREF1 TO KWD 


INPREF1: KDATA<-0, : PREFDONE; 

; SH<0 MAPS PREFDONE TO INPREF 


, i / PREFDONE: T«-KNMARW; COMPUTE TOP OF BLOCK TO TRANSFER 
U 'f KWDX: L<-KWDCTW+T,RWC; (ALSO USED FOR RESET) 

|/ n d' KNMARW<-L,BLOCK, :RPO; 


RWC=CHECK MAPS RPO TO CKPO 
RWC=WRITE MAPS RPO AND CKPO TO WPO 
RWC=INIT MAPS RPO, CKPO, AND WPO TO KWD 


116 H RPO: 


KCOMM<-STRCWFS, :WP1; 


CKPO: L<-KWDCTW-1; ADJUST FINISHING CONDITION BY 1 FOR CHECKING ONLY 

KWDCTW<-L , : RPO; 


WPO: 
Linn WP1: 


KDATA<-ONE; WRITE THE SYNC PATTERN 

L«-KBLKADR .TASK, : RW1; INITIALIZE THE CHECKSUM AND ENTER XFER LOOP 


\1H S XFLP: 


T<-L*-KNMARW-1; BEGINNING OF MAIN XFER LOOP 

KNMARW^-L; 
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MAR<-KNMARW, RWC; 

L*-KWDCTW-T,;R0; 

RWC=CHECK MAPS RO TO CKO 
RWC=WRITE MAPS RO AND CKO TO WO 
RWC=INIT MAPS RO, CKO, AND WO TO KWD 


RO: T<-CKSUMRW,SH=0,BLOCK; 

MD<-L*-KDATA XOR T,TASK,:RW1; 

SH = 0 MAPS RW1 TO RW2 

y RW1: CKSUMRW<-L, :XFLP; 

WO: T<-CKSUMRW, BLOCK; 

KDATA<-L<-MD XOR T,SH = 0; 

TASK,:RW1; 

AS ALREADY NOTED, SH=0 MAPS RW1 TO RW2 


CKO : T*-KDATA, BLOCK , SH=0; 

L«-MD XOR T, BUS = 0,: CK1; 

; SH=0 MAPS CK1 TO CK2 


CK1: L*-CKSUMRW XOR T, SH=0, : CK3; 


; BUS=0 MAPS CK3 TO CK4 

CK3: TASK,:CKERR; 

; SH=0 MAPS CKERR TO CK5 


CK5 : CKSUMRW<-L,: XFLP; 

CK4: MAR«-KNMARW, :CK6; 

SH=0 MAPS CK6 TO CK6 

CK6: CKSUMRW*-L, L<-0+T; 

MTEMP<-L,TASK; 

MD«-MTEMP , : XFLP; 

CK2 : L*-CKSUMRW-T, :R2; 

; BUS=0 MAPS R2 TO R2 

RW2: CKSUMRWH.; 

T«-KDATA<-CKSUMRW,RWC; THIS CODE HANDLES THE FINAL CHECKSUM 
L«-KDATA-T,BLOCK, :R2; 

; RWC=CHECK NEVER GETS HERE 

; RWC=WRITE MAPS R2 TO W2 

; RWC=INIT MAPS R2 AND W2 TO KWD 

R2: L«-MRPAL, SH = 0; SET READ POST AMBLE LENGTH, CHECK CKSUM 

KCOMM*-TOTUWC, :CKSMERR; 

; SH=0 MAPS CKSMERR TO PXFLPO 

W2: L^-MWPAL, TASK; SET WRITE POSTAMBLE LENGTH 

CKSUMRW<-L, : PXFLP; 

CKSMERR: KSTAT«-0,: PXFLPO; 0 MEANS CHECKSUM ERROR .. CONTINUE 

PXFLP: L<-CKSUMRW+1, INIT, BLOCK; 

PXFLPO: CKSUMRW<-L, TASK, SH=0, :PXFLP1; 

INIT MAPS PXFLP1 TO KWD 

PXFLP1: KDATA*-0,: PXFLP; 

; SH=0 MAPS PXFLP TO PXF2 

PXF2: RECNO, BLOCK; DISPATCH BASED ON RECORD NUMBER 
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:REC1; 

; RECNO=2 MAPS REC1 INTO REC2 

; RECN0=3 MAPS REC1 INTO REC3 

; RECNO=INIT MAPS REC1 INTO KWD 

REC3 : KSTAT*-4 , : PXFLP; 4 MEANS SUCCESS!!! 

CKERR: KCOMM<-TOTUWC; TURN OFF DATA TRANSFER 

L<-KSTAT<-6, : PXFLP1; SHOW CHECK ERROR AND LOOP 
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The Parity Error Task 

Its label predefinition is way earlier 

It dumps the following interesting registers: 

614/ DCBR Disk control block 

615/ KNMAR Disk memory address 

616/ DWA Display memory address 

617/ CBA Display control block 

620/ PC Emulator program counter 

621/ SAD Emulator temporary register for indirection 


PART: T<- 10; 

L<- ALLONES; 

MAR<- ERRCTRL, :PX1; 
PR8: L<- SAD, :PX; 

PR7: L<- PC, : PX; 

PR6: L<- CBA, :PX; 

PR5 : L*- DWA, : PX ; 

PR4: L<- KNMAR, :PX; 

PR3 : L«- DCBR, : PX ; 

PR2: L<- NWW OR T, TASK; 

PRO: NWW<- L, : PART; 


TURN OFF MEMORY INTERRUPTS 


T CONTAINS 1 AT THIS POINT 


PX: MAR*- 612-i-T; 

PX1: MTEMP<- L, L<- T; 

MD<- MTEMP; 

CURDATA*- L; THIS CLOBBERS THE CURSOR FOR ONE 

T«- CURDATA-1, BUS; FRAME WHEN AN ERROR OCCURS 

: PRO; 





